home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Organization / XrefText5 / XrefText5 / card_3717.txt < prev    next >
Text File  |  1988-02-09  |  4KB  |  219 lines
  1. -- card: 3717 from stack: in
  2. -- bmap block id: 5240
  3. -- flags: 4000
  4. -- background id: 2642
  5. -- name: TheIndex
  6. ----- HyperTalk script -----
  7. on openCard
  8.   set lockText of card field "finder" to true
  9. end openCard
  10.  
  11.  
  12.  
  13.  
  14. -- part 1 (field)
  15. -- low flags: 01
  16. -- high flags: 2007
  17. -- rect: left=269 top=97 right=326 bottom=457
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 0
  21. -- font id: 20
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 12
  25. -- part name: finder
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   put the optionkey into keystate
  29.   if the selection is empty then
  30.     set lockText of the target to false
  31.     repeat two times
  32.       click at the clickLoc
  33.     end repeat
  34.     put the selection into holder
  35.     push card
  36.     visual effect wipe right to black
  37.     visual effect wipe left
  38.     find holder in field keywords -- This line is the link
  39.     if the result is not empty then
  40.       answer "No match for keyword " "e& holder"e
  41.       pop card
  42.     end if
  43.   end if
  44.   click at 0,0 --disable selection
  45.   set lockText of the target to true
  46. end mouseUp
  47.  
  48.  
  49.  
  50. -- part 5 (button)
  51. -- low flags: 00
  52. -- high flags: 0000
  53. -- rect: left=396 top=54 right=75 bottom=457
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Re-Index
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   set cursor to 4
  65.   set loc of message to 10,170
  66.   play harpsichord c
  67.   put "Sorting Reference Cards . . . Please Wait" into message
  68.   put empty into card field finder
  69.   set the cursor to 4
  70.   sort by field keywords
  71.   get the number of cards
  72.   put it into x
  73.   put 0 into y
  74.   subtract 1 from x
  75.   play harpsichord e
  76.   flash 1
  77.   put "Getting Keywords . . . Please Wait" into message
  78.   set lockscreen to true
  79.   repeat x
  80.     add 1 to y
  81.     go next
  82.     get field keywords
  83.     put it into line y of card field finder of card 1
  84.   end repeat
  85.   go card 1
  86.   set lockscreen to false
  87.   play harpsichord g
  88.   flash 1
  89.   put "Compacting Stack . . . Please Wait" into message
  90.   doMenu "Compact Stack"
  91.   play harpsichord c5 g4 e c
  92.   flash 1
  93.   put "Done" into message
  94.   wait 2 seconds
  95.   hide message
  96. end mouseUp
  97.  
  98.  
  99.  
  100.  
  101. -- part 18 (button)
  102. -- low flags: 80
  103. -- high flags: A000
  104. -- rect: left=172 top=92 right=140 bottom=266
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 24209 / 24209
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: XTButton
  113. ----- HyperTalk script -----
  114. on mouseUp
  115.   get the short name of target
  116.   visual effect iris close to black
  117.   visual effect iris open to white
  118.   visual effect dissolve
  119.   go to stack it
  120. end mouseUp
  121.  
  122.  
  123.  
  124.  
  125. -- part 27 (button)
  126. -- low flags: 00
  127. -- high flags: 0000
  128. -- rect: left=313 top=54 right=76 bottom=379
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 0 / 0
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: New Key
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   ask "Enter New Keyword:"
  140.   if it is not empty then
  141.     put it into keyname
  142.     doMenu New Card
  143.     set the name of this card to keyname
  144.     put keyname into field keywords
  145.     get the number of lines in card field finder of card theIndex
  146.     put keyname into line it+1 of card field finder of card theIndex
  147.   end if
  148. end mouseUp
  149.  
  150.  
  151.  
  152. -- part 28 (button)
  153. -- low flags: 00
  154. -- high flags: 0000
  155. -- rect: left=9 top=315 right=342 bottom=30
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: Xref on Home
  164. ----- HyperTalk script -----
  165. on mouseUp
  166.   play harpsichord c6
  167.   set the cursor to 4
  168.   put "Putting button into home stack...Please wait" into message
  169.   get the short name of this stack
  170.   put it into nameholder
  171.   show card button "XTButton"
  172.   choose button tool
  173.   click at the loc of button "XTButton"
  174.   doMenu "Copy Button"
  175.   go home
  176.   doMenu "Paste Button"
  177.   set the name of button "XTButton" to nameholder
  178.   go back
  179.   hide button XTButton
  180.   play harpsichord c5
  181.   put "Done." into message
  182.   wait 30 ticks
  183.   hide message
  184.   choose browse tool
  185. end mouseUp
  186.  
  187.  
  188.  
  189.  
  190. -- part contents for background part 1
  191. ----- text -----
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207. -- part contents for card part 1
  208. ----- text -----
  209.  
  210. applications
  211. AwayFromHome
  212. HyperCard
  213. HyperText
  214. modifications
  215. paint
  216. Patrick
  217. Ristau
  218. shareware
  219. XrefText5